home *** CD-ROM | disk | FTP | other *** search
/ Yellows - Privacy (Deluxe) / Akira Gomi Photographs - Yellows: Privacy (Deluxe) - Disc 1.iso / mono / p.dxr / 00078.ls < prev    next >
Encoding:
Text File  |  1996-07-06  |  1.6 KB  |  53 lines
  1. on exitFrame
  2.   global waittime, layoutnum, changesplist, changelist, layoutseen
  3.   set templist to changelist
  4.   set a to random(9)
  5.   if rollOver(15) then
  6.     curcontrol(15)
  7.   else
  8.     if layoutseen = 1 then
  9.       repeat with i = 10 to 12
  10.         set the visible of sprite i to 0
  11.       end repeat
  12.       repeat while a = layoutnum
  13.         set a to random(9)
  14.       end repeat
  15.       set layoutnum to a
  16.       set layoutseen to 0
  17.     else
  18.       if a = layoutnum then
  19.         judgelist()
  20.         set changesplist to []
  21.         repeat with i = 1 to random(2)
  22.           set spnum to getAt(changelist, random(count(changelist)))
  23.           deleteAt(changelist, getPos(changelist, spnum))
  24.           add(changesplist, spnum)
  25.         end repeat
  26.         repeat with i = 1 to count(changesplist)
  27.           set cname to the name of cast the castNum of sprite getAt(changesplist, i)
  28.           set castname to char 1 of cname
  29.           set num to judgename(castname)
  30.           if (castname & num) = cname then
  31.             set num to judgename(castname)
  32.           end if
  33.           repeat with t = 1 to count(templist)
  34.             set aname to the name of cast the castNum of sprite getAt(templist, t)
  35.             if (castname & num) = aname then
  36.               set num to judgename(aname)
  37.             end if
  38.           end repeat
  39.           set the castNum of sprite getAt(changesplist, i) to the number of member (castname & num)
  40.         end repeat
  41.         set layoutseen to 1
  42.         go("wait")
  43.       else
  44.         repeat with i = 10 to 12
  45.           set the visible of sprite i to 0
  46.         end repeat
  47.         set layoutnum to a
  48.         set layoutseen to 0
  49.       end if
  50.     end if
  51.   end if
  52. end
  53.